home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / m / math_vision / mathvisionv2.1b.dms / in.adf / HookExamples / Parametric / Sound / Calliope.f
Unknown  |  1992-02-14  |  1.2 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Freeze Frozen Compressed File (archive/freeze) ext Supported
10% dexvert IFF Interleaved Bitmap Image (image/iffILBM) magic Supported
100% file IFF data default (weak)
99% file data default
96% TrID MathVISION Formula (v2.0) default
1% TrID IFF InterLeaved BitMap default (weak)
1% TrID Generic IFF container default (weak)
100% dexmagic Generic IFF FORM file ILBM default (weak)
100% siegfried x-fmt/157 Interchange File default (weak)
100% xdgMime image/x-ilbm default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 4f 52 4d 00 00 04 92 | 49 4c 42 4d 43 48 52 53 |FORM....|ILBMCHRS|
|00000010| 00 00 04 85 58 6d 69 6e | 20 2d 31 2e 37 31 36 37 |....Xmin| -1.7167|
|00000020| 31 33 0a 58 6d 61 78 20 | 31 2e 36 32 37 35 31 31 |13.Xmax |1.627511|
|00000030| 0a 59 6d 69 6e 20 2d 31 | 2e 31 37 33 30 38 33 0a |.Ymin -1|.173083.|
|00000040| 59 6d 61 78 20 31 2e 31 | 36 35 35 36 34 0a 43 6f |Ymax 1.1|65564.Co|
|00000050| 6e 74 6f 75 72 41 6e 63 | 68 6f 72 20 2d 32 2e 30 |ntourAnc|hor -2.0|
|00000060| 30 30 30 30 30 0a 43 6f | 6e 74 6f 75 72 57 69 64 |00000.Co|ntourWid|
|00000070| 74 68 20 30 2e 30 36 32 | 35 30 30 30 30 0a 43 6c |th 0.062|50000.Cl|
|00000080| 69 70 48 69 67 68 20 2d | 32 2e 30 30 30 30 30 30 |ipHigh -|2.000000|
|00000090| 0a 43 6c 69 70 4c 6f 77 | 20 2d 32 2e 30 30 30 30 |.ClipLow| -2.0000|
|000000a0| 30 30 0a 46 30 20 30 3d | 63 61 73 65 28 63 6f 75 |00.F0 0=|case(cou|
|000000b0| 6e 74 3d 30 2c 66 61 2c | 20 63 6f 75 6e 74 3c 35 |nt=0,fa,| count<5|
|000000c0| 30 30 2c 66 62 2c 20 31 | 20 29 20 20 20 20 20 20 |00,fb, 1| )      |
|000000d0| 20 20 20 22 43 6f 6e 74 | 72 6f 6c 20 69 74 65 72 |   "Cont|rol iter|
|000000e0| 61 74 69 6f 6e 0a 46 41 | 20 6e 75 6c 6c 28 66 62 |ation.FA| null(fb|
|000000f0| 2c 20 73 65 74 28 61 2c | 30 29 2c 73 65 74 28 72 |, set(a,|0),set(r|
|00000100| 2c 31 29 20 73 65 74 28 | 69 2c 70 69 2f 2e 38 39 |,1) set(|i,pi/.89|
|00000110| 29 2c 20 73 65 74 28 64 | 2c 2e 39 39 35 29 20 29 |), set(d|,.995) )|
|00000120| 20 22 49 6e 69 74 69 61 | 6c 20 76 61 6c 75 65 73 | "Initia|l values|
|00000130| 0a 46 42 20 6e 75 6c 6c | 28 66 63 28 61 2b 69 2c |.FB null|(fc(a+i,|
|00000140| 72 2a 64 29 2c 66 69 28 | 72 2a 63 6f 73 28 61 29 |r*d),fi(|r*cos(a)|
|00000150| 2c 72 2a 73 69 6e 28 61 | 29 29 20 29 20 20 20 20 |,r*sin(a|)) )    |
|00000160| 20 22 43 6f 6d 70 75 74 | 65 20 6e 65 77 20 76 61 | "Comput|e new va|
|00000170| 6c 75 65 73 0a 46 43 20 | 6e 75 6c 6c 28 20 73 65 |lues.FC |null( se|
|00000180| 74 28 61 2c 61 31 29 2c | 20 73 65 74 28 72 2c 61 |t(a,a1),| set(r,a|
|00000190| 32 29 20 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |2) )    |        |
|000001a0| 20 20 20 20 20 22 53 65 | 74 20 6e 65 77 20 76 61 |     "Se|t new va|
|000001b0| 6c 75 65 73 0a 46 44 20 | 0a 46 45 20 0a 46 46 20 |lues.FD |.FE .FF |
|000001c0| 0a 46 47 20 0a 46 48 20 | 6e 75 6c 6c 28 64 65 6c |.FG .FH |null(del|
|000001d0| 61 79 28 20 32 5e 28 28 | 61 31 2b 32 29 2a 32 30 |ay( 2^((|a1+2)*20|
|000001e0| 20 25 20 32 2b 33 29 20 | 29 2c 20 6e 6f 74 65 28 | % 2+3) |), note(|
|000001f0| 30 2c 28 61 32 2b 31 29 | 2a 31 32 2b 32 30 29 20 |0,(a2+1)|*12+20) |
|00000200| 29 0a 46 49 20 6e 75 6c | 6c 28 20 66 68 28 61 31 |).FI nul|l( fh(a1|
|00000210| 2c 61 32 29 2c 20 64 72 | 61 77 28 61 31 2c 61 32 |,a2), dr|aw(a1,a2|
|00000220| 2c 69 66 28 63 6f 75 6e | 74 2c 20 61 2f 28 31 30 |,if(coun|t, a/(10|
|00000230| 2a 70 69 29 2b 31 2c 20 | 30 29 29 20 29 22 64 69 |*pi)+1, |0)) )"di|
|00000240| 73 70 6c 61 79 0a 43 6f | 6d 6d 65 6e 74 31 20 43 |splay.Co|mment1 C|
|00000250| 6f 6c 6c 69 64 65 69 73 | 63 6f 70 65 20 20 28 75 |ollideis|cope  (u|
|00000260| 73 65 73 20 74 68 65 20 | 50 61 72 61 6d 65 74 72 |ses the |Parametr|
|00000270| 69 63 20 68 6f 6f 6b 20 | 74 6f 6f 29 20 31 39 2d |ic hook |too) 19-|
|00000280| 41 70 72 2d 39 30 20 64 | 6f 75 67 20 48 6f 75 63 |Apr-90 d|oug Houc|
|00000290| 6b 0a 43 6f 6d 6d 65 6e | 74 32 20 43 68 61 6e 67 |k.Commen|t2 Chang|
|000002a0| 65 20 74 68 65 20 76 61 | 6c 75 65 73 20 6f 66 20 |e the va|lues of |
|000002b0| 49 20 61 6e 64 20 44 20 | 69 6e 20 46 41 20 74 6f |I and D |in FA to|
|000002c0| 20 65 78 70 6c 6f 72 65 | 20 64 69 66 66 65 72 65 | explore| differe|
|000002d0| 6e 74 20 65 66 66 65 63 | 74 73 0a 43 6f 6d 6d 65 |nt effec|ts.Comme|
|000002e0| 6e 74 33 20 41 3d 61 6e | 67 6c 65 2c 20 49 3d 49 |nt3 A=an|gle, I=I|
|000002f0| 6e 63 72 65 6d 65 6e 74 | 20 66 6f 72 20 61 6e 67 |ncrement| for ang|
|00000300| 6c 65 2c 20 52 3d 72 61 | 64 69 75 73 2c 20 44 3d |le, R=ra|dius, D=|
|00000310| 64 65 6c 74 61 20 66 6f | 72 20 52 61 64 69 75 73 |delta fo|r Radius|
|00000320| 0a 4f 76 65 72 70 6c 6f | 74 20 46 0a 55 73 65 42 |.Overplo|t F.UseB|
|00000330| 61 63 6b 67 72 6f 75 6e | 64 20 46 0a 4d 6f 64 75 |ackgroun|d F.Modu|
|00000340| 6c 6f 20 31 36 0a 43 6f | 6d 70 6c 65 74 65 20 30 |lo 16.Co|mplete 0|
|00000350| 0a 43 6f 6e 74 6f 75 72 | 53 61 6d 70 6c 65 44 65 |.Contour|SampleDe|
|00000360| 6c 74 61 20 30 0a 43 6f | 6e 74 6f 75 72 53 63 61 |lta 0.Co|ntourSca|
|00000370| 6c 69 6e 67 20 46 0a 43 | 6f 6e 74 6f 75 72 4e 6f |ling F.C|ontourNo|
|00000380| 69 73 79 20 54 0a 43 6f | 6e 74 6f 75 72 43 6c 69 |isy T.Co|ntourCli|
|00000390| 70 70 69 6e 67 20 46 0a | 42 6f 78 48 65 69 67 68 |pping F.|BoxHeigh|
|000003a0| 74 20 30 0a 42 6f 78 4d | 61 67 6e 69 66 69 63 61 |t 0.BoxM|agnifica|
|000003b0| 74 69 6f 6e 20 30 0a 58 | 76 69 65 77 70 6f 69 6e |tion 0.X|viewpoin|
|000003c0| 74 20 30 0a 5a 76 69 65 | 77 70 6f 69 6e 74 20 30 |t 0.Zvie|wpoint 0|
|000003d0| 0a 50 65 72 73 70 65 63 | 74 69 76 65 53 61 6d 70 |.Perspec|tiveSamp|
|000003e0| 6c 65 44 65 6c 74 61 20 | 30 0a 50 65 72 73 70 65 |leDelta |0.Perspe|
|000003f0| 63 74 69 76 65 20 54 0a | 48 69 64 64 65 6e 5f 4c |ctive T.|Hidden_L|
|00000400| 69 6e 65 73 20 54 0a 43 | 6c 69 70 54 6f 42 6f 78 |ines T.C|lipToBox|
|00000410| 20 54 0a 44 72 61 77 42 | 6f 78 20 54 0a 43 6f 6c | T.DrawB|ox T.Col|
|00000420| 6f 72 54 6f 70 20 54 0a | 43 6f 6c 6f 72 42 6f 74 |orTop T.|ColorBot|
|00000430| 74 6f 6d 20 46 0a 53 69 | 6d 70 6c 65 53 61 6d 70 |tom F.Si|mpleSamp|
|00000440| 6c 65 44 65 6c 74 61 20 | 30 0a 53 69 6d 70 6c 65 |leDelta |0.Simple|
|00000450| 4e 6f 69 73 79 20 54 0a | 53 69 6d 70 6c 65 47 72 |Noisy T.|SimpleGr|
|00000460| 61 64 69 65 6e 74 31 20 | 46 0a 53 69 6d 70 6c 65 |adient1 |F.Simple|
|00000470| 47 72 61 64 69 65 6e 74 | 32 20 46 0a 53 69 6d 70 |Gradient|2 F.Simp|
|00000480| 6c 65 50 65 6e 20 32 0a | 50 6c 6f 74 4d 6f 64 65 |lePen 2.|PlotMode|
|00000490| 20 43 6f 6e 74 6f 75 72 | 0a 00                   | Contour|..      |
+--------+-------------------------+-------------------------+--------+--------+